unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ElXPThemedControl, ElTreeInplaceEditors,
  ElTree, ElTreeGrids;

type
  TForm2 = class(TForm)
    ElTreeStringGrid1: TElTreeStringGrid;
    procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
var
  I:Integer;
  M:Integer;
  Item:TElTreeItem;
  Iteo:TElTreeItem;
begin
  Self.ElTreeStringGrid1.Items.Clear;
  Self.ElTreeStringGrid1.ShowButtons:=True;
  Self.ElTreeStringGrid1.HeaderHeight:=60;

  with ElTreeStringGrid1 do
  begin
    for I := 0 to 100 do
    begin
      ElTreeStringGrid1.Items.BeginUpdate;
      Item:=ElTreeStringGrid1.Items.AddChildObject(nil,Format('NODE%D',[I]),nil);

      {for M:=0 to 30 do
      begin
        Iteo:=ElTreeStringGrid1.Items.AddChildObject(Item,Format('ITEM%D',[M]),nil);
        Iteo.ColumnText.Add('ABBB');
        Iteo.ColumnText.Add('ACCC');
        Iteo.ColumnText.Add('ADDD');
        Iteo.ColumnText.Add('AEEE');
      end;}


      ElTreeStringGrid1.Items.EndUpdate;
    end;
  end;

end;

end.
